home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ AutoRun Mover.xpl < prev    next >
Text File  |  2001-04-13  |  4KB  |  146 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="3"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows 9x/ME\50) AutoRun - Part 1"
  5. "UIPATH 2"="Startup/Shutdown\Startup\Windows 9x/ME\70) AutoRun - Part 2"
  6. "UIPATH 3"="Startup/Shutdown\Startup\Windows NT/2K/XP\20) AutoRun - Part 1"
  7. "UIPATH 4"="Startup/Shutdown\Startup\Windows NT/2K/XP\50) AutoRun - Part 2"
  8. "NAME"="Move AutoRun Items"
  9. "VERSION"="1.24"
  10. "WARNING"="1"
  11. "LANGUAGE"="VBScript"
  12. "TEXT 1"="System->User"
  13. "TEXT 2"="Show Info"
  14. "TEXT 3"="User->System"
  15. "DESCRIPTION 1"="This plug-in can be used to move the programs that are automatically launched when your computer starts or when you log in."
  16. "DESCRIPTION 2"="All items that are marked with "USER:" are launched when you log in. All programs that are marked with "SYST:" are launched as soon as the computer is started."
  17. "DESCRIPTION 3"="For example if you have an application that is launched when you log in (USER:) and but should be launched when the computer is started, selected the item and press "USER->SYSTEM"."
  18. "DESCRIPTION 4"="On the other hand, to move a program that is launched when the computer starts (SYST:) but should only be started when you log in, press "SYSTEM->USER"."
  19. "AUTHOR"="Xteq Systems"
  20. "CONTACTURL"="http://www.xteq.com"
  21. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  22. "COMMENT 1"=" "
  23. "COMMENT 2"="Thanks to "Hozak, Lubomir" <Lubomir.Hozak@skoda-auto.cz> for the idea!"
  24.  
  25.  
  26. iCount=0
  27.  
  28. sUSR="USER: "
  29. sSYS="SYST: "
  30. iTxtLen=6
  31.  
  32. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"
  33. sP2="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
  34. Sub Plugin_Initialize 
  35.  Call ReadAll()
  36.  
  37.  
  38. End Sub
  39.  
  40. Sub ReadAll
  41.  if iCount>0 then
  42.     for i=1 to iCount  
  43.         Call SetUIElement(i,"") '//clear all
  44.     next
  45.  end if
  46.  
  47.  
  48.  iC1=RegEnumValues(sP1)
  49.  'msginformation ic1
  50.  
  51.  iC2=RegEnumValues(sP2)
  52.  'msginformation ic2
  53.  
  54.  iCount=iC1+iC2 '//save total count
  55.  
  56.  
  57.  'Read current user
  58.  l=RegEnumValues(sP1)
  59.  if l>0 then
  60.     for i=1 to l
  61.         sName=RegEnumElement(i)
  62.         Call SetUIElement(i,sUSR & sName)
  63.     next
  64.  end if
  65.  
  66.  
  67.  l=RegEnumValues(sP2)
  68.  if l>0 then
  69.     for i=1 to l
  70.         sName=RegEnumElement(i)
  71.         Call SetUIElement(i+iC1,sSYS & sName)
  72.     next 
  73.  end if
  74.  
  75. End Sub
  76.  
  77.  
  78.  
  79. Sub Plugin_CheckData(ElementIndex)
  80. End Sub
  81.  
  82. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  83.  if ElementSubIndex>0 then
  84.  
  85.     s=GetUIElement(ElementSubIndex)
  86.  
  87.     '//first get the regvalue
  88.     sRegValue=right(s,len(s)-iTxtLen)
  89.     ''''msginformation "[" & sRegValue & "]"
  90.  
  91.     '//user or system
  92.     if left(s,iTxtLen)=sUSR then
  93.        sRegPath=sP1
  94.        bIsUser=true 
  95.     else
  96.        sRegPath=sP2
  97.        bIsUser=false
  98.     end if
  99.     ''''msginformation "[" & sRegPath & "]"
  100.  
  101.  
  102.     '//read the value
  103.     sValue=RegReadValue(sRegpath & sRegValue)
  104.  
  105.  
  106.  
  107.  
  108.     '//System To User
  109.     if ElementIndex=1 then 
  110.        if bIsUser=true then
  111.           MsgError "You need to select a SYSTEM entry!"
  112.        else
  113.           Call RegWriteValue(sP1 & sRegValue,sValue,1)
  114.           Call RegDeleteValue(sRegPath & sRegValue)
  115.           Call ReadAll
  116.        end if
  117.     end if
  118.  
  119.     '//Show info
  120.     if ElementIndex=2 then 
  121.        MsgInformation "Command: " & vbCrLf & vbCrLf & sValue
  122.     end if
  123.  
  124.     '//User to System 
  125.     if ElementIndex=3 then 
  126.        if bIsUser=false then
  127.           MsgError "You need to select an USER entry!"
  128.        else
  129.           Call RegWriteValue(sP2 & sRegValue,sValue,1)
  130.           Call RegDeleteValue(sRegPath & sRegValue)
  131.           Call ReadAll
  132.        end if
  133.     end if
  134.  
  135.   
  136.  
  137.    
  138.   end if
  139. End Sub
  140.  
  141. Sub Plugin_Terminate 
  142. End Sub
  143.  
  144.  
  145.  
  146.